home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Taifun / Taifun 143 (1990-08-15)(Ossowski, Stefan)(DE)(PD).zip / Taifun 143 (1990-08-15)(Ossowski, Stefan)(DE)(PD).adf / SASTools / M2ouse / M2ouse.doc < prev    next >
Text File  |  1990-05-16  |  4KB  |  101 lines
  1.        **********    *******    **********
  2.       **            **     **    **                   > Jörg Sixt       <
  3.      **            **       **    **                  > Tulpenstr. 2    <
  4.     **********    *************    **********         > 8424 Saal/Donau <
  5.            **    **           **            **        > FRG             <
  6.           **    **             **            **
  7.  **********    **               **    **********
  8.   S I C K           A M I G A          S O F T
  9.  
  10.   OFFICIAL DOCUMENTATION
  11.  
  12.   Name     :  M2ouse.mod
  13.   Usage    :  M2ouse >file
  14.   Version  :  V1.10
  15.   Date     :  15.05.1989
  16.   Author   :  Jörg Sixt
  17.   Purpose  :  catches the mouse-pointer, converts it to an INLINE-
  18.               procedure and writes it to "file"
  19.   Language :  Modula-2,AMSoft  PD-Version from Fish 113
  20.   Bugs     :  can't handle file-input via argument
  21.  
  22.  
  23.   I. DISTRIBUTION AND OTHER JURIDICAL KNICK-KNACKS
  24.   ================================================
  25.  
  26.   This software may not be used as a part of commercial products without
  27.   the permission of the author (hey,that's me!!). This material may be
  28.   copied (don't forget the documentation) and used by every-one.
  29.   This here is freeware: You needn't send me money (but you may If you've
  30.   got too much of these neaty papers) but you MUST leave my name in the
  31.   programme, except if you produce a better version (but at least mention
  32.   me somewhere in the documentation then).
  33.  
  34.   II. FUNCTION
  35.   ============
  36.  
  37.   (see purpose, there is really nothing more to say)
  38.  
  39.   III. POINTERS IN YOUR PROGRAMME
  40.   ===============================
  41.  
  42.   1. Edit the mouse pointer with the preferences
  43.   2. Use M2ouse
  44.   3. Insert the "file" in the main-source
  45.   4. Now you have to modify your programme:
  46.  
  47.      CONST Spotx   = ???       ;     (* hotspot coordinates *)
  48.            Spoty   = ???       ;
  49.  
  50.      VAR  MyWindow : WindowPtr ;     (* Pointer to the window *)
  51.           MouImage : ADDRESS   ;     (* Pointer to the memory block *)
  52.  
  53.      BEGIN
  54.           :     :
  55.           :     :
  56.           :     :
  57.           (* INLINE-code must be in chip-ram - to be compatible
  58.              with fast-ram  copy INLINE code to chip-ram *)
  59.  
  60.           MouImage := AllocMem(72,MemReqSet{memClear,public,chip}) ;
  61.           IF (MouImage = NIL) THEN HALT ; END ;
  62.           CopyMem(ADR(SpriteData),MemPtr,72) ;
  63.  
  64.           (* Now this intuition-function installs the pointer *)
  65.  
  66.           SetPointer(MyWindow,MouImage,16,16,Spotx,Spoty) ;
  67.           :     :
  68.           :     :
  69.           :     :
  70.           (* You want the old one back ?? *)
  71.           ClearPointer(MyWindow) ;
  72.           :     :
  73.           :     :
  74.           :     :
  75.           (* Must be at the end *)
  76.           FreeMem(MouImage,72) ;
  77.  
  78.   5. It's also possible to use the INLINE-code for other hardware-sprites
  79.      (see UFO, if it's included on this disk)
  80.  
  81.   IV. THE FAMEST LAST WORDS
  82.   =========================
  83.  
  84.   Greetings to Charlie Gibbs,Brian R. Anderson,Software-Distellery,all
  85.                people who hate me and of course to Fredl Fisch(=Bavarian
  86.                translation of Fred Fish - is only valid if he puts these
  87.                programmes into his library),Mike Mehrl
  88.  
  89.   If you want to send me something neaty.... I need:
  90.   money,more money, last version of a68k and blink,much more money,
  91.   records,CDs,disks,lots and lots of money and a sun workstation
  92.  
  93.   Bugs,remarks,payements,bribery,improvements,better version to:
  94.         Jörg Sixt
  95.         sick amiga software
  96.         Tulpenstr.2
  97.         8424 Saal/Donau
  98.         FRG
  99.  
  100.   PS: Sory for my bed englisch !!
  101.